perm filename DISKO.F4[P11,LCS]1 blob sn#426323 filedate 1979-03-19 generic text, type T, neo UTF8
  	SUBROUTINE DISKO(N,NAM,J)
C N=DEVICE NUMBER, NAM=FILE NAME, J=0=OUTPUT, =-1=INPUT
	IF(J.LT.0)GO TO 1

         CALL OFILE(N,NAM)
CXX	CALL OPEN(N,NAM,0,'NEW',,,'UNF')
	RETURN
1        CALL IFILE(N,NAM)
CXX	CALL OPEN(N,NAM,0,'RDO',,,'UNF')
	END

	BLOCK DATA
	COMMON /DEVS/ID1,ID21,JTYPE,ID23,ID20
	DATA JTYPE/5/,ID23/23/,ID20/20/,ID1/1/,ID21/21/
	END